home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / I-J / If Monks had Macs....cpt / If Monks had Macs... / Library / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-02-10  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>2950</cardID>
  8.     <listID>2076</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on idleif commandKey() is down thenshow menuBarend ifif tool() is "browse tool" thenhide tool windowend ifend idleon openCardplay stopend openCardon cleanScreenhide menuBarhide msglock screenrepeat with i = 1 to 4if visible of cd fld i is true then hide cd fld iend repeatunlock screen with dissolveend cleanScreenon waiterset cursor to 5wait until mouseClick()end waiteron closeCardif number of this cd is 1 thencleanScreenend ifend closeCardon GoHomevisual wipe right to blackvisual dissolvedoMenu "Home"end GoHomeon doMenu whichItemGlobal StackNameif whichitem is "If Monks Had Macs..." thenanswer ¬¨"       This stack is from the package" &return¬¨&"       ‚ÄúIf Monks Had Macs...‚Äù 2.5.7" &return¬¨&"       ¬©1988,1989  riverTEXT‚Ñ¢"exit domenuend ifif whichItem is in "First,Prev,Next,Last,New Card,Delete Card," ¬¨&"Cut Card,Paste Card,New Field,New Background,Find..." thenbeepexit to hyperCardend ifif whichItem is "New Button" thenif StackName is empty thenbeepexit to hyperCardelsepass doMenuend ifend ifif WhichItem is "Quit HyperCard" thenif the freesize of this stack > 2000 ¬¨and the diskspace > the size of this stack thenAnswer "Reshelve books and alphabetize card catalog?" with ¬¨"Compact" or "Next time" or "Cancel"If it is "Compact" thenif cantmodify of this stack is false thenlock screenshow cd fld "GoodbyeNote"unlock screen with dissolvedoMenu "Compact Stack"lock screenhide cd fld "GoodbyeNote"unlock screen with dissolveelseshow menuBaranswer "The Cantmodify of this stack is set to true," ¬¨&" so compacting is impossible at this time. Next session?"¬¨with "OK"end ifend ifif it is "Cancel" thenexit doMenuend ifend ifend ifpass doMenuend doMenuon openStackglobal StackscleanScreenif the version < 1.2 thenAnswer "Hypercard version 1.2, or later, is available at your "¬¨&"Apple dealer. Many functions of this stack require the new "¬¨&"features.  Continue?" ¬¨with "Risk It" or "Go Home"if it is "Go Home" thenGoHomeexit openStackend ifend ifgo cd 1if stacks is empty thenCheckGlobalsend ifAbout " ","If Monks Had Macs..."set userLevel to 5choose browse toolend openStackon CheckGlobalsglobal GULevel,GPKeys,GTArrowsglobal GVPatn,GBTyping,GVMsg,GVToolgetHomeInfoput the userLevel into GULevelput the powerKeys Into GPKeysput the textArrows into GTArrowsput the blindTyping into GBTypingput the visible of the msg into GVMsgput the visible of tool window into GVToolput the visible of pattern window into GVPatnend CheckGlobalson closeStackglobal GULevel,GPKeys,GTArrowsGlobal GVPatn,GBTyping,GVMsg,GVToolcleanScreenif GULevel is empty thenCheckGlobalsend ifset the userLevel to GULevelset the powerKeys to GPKeysset the textArrows to GTArrowsset the blindTyping to GBTypingset the visible of the msg to GVMsgset the visible of tool window to GVToolset the visible of pattern window to GVPatnaboutend closeStackon deleteButton-- neutralizes any "anti-goof-up" handlers in user's stackend deleteButton-- Library created by and copyrighted 1988-1989, by Philip A. Mohr, Jr.-- If this stack is used as the basis for an expanded version, all-- I expect as recompense is a that a copy of your completed stack-- be posted on one or more of the major PD distribution services-- (CompuServe, Genie, etc.).--   ChooseIcon is from Oscar Hills, who also wrote the XFCN-- "SearchAutoCat" used in the search routine of "Imitatio Chisti" and-- "BookMaker."--   Portions of this stack ¬©1988-1989 by Philip A. Mohr, Jr. Permission-- is hereby granted for its non-commercial use and dis